American History: Interactive Maps & User's Guide/American History: Interactive Maps & User's Guide.iso/pc/Quit.dxr/00001.ls

Text File | 2000-01-25 | 4.3 KB | 154 lines

on startMovie
  global gQuitButtonPressed, gCurrentComponent, gTeacherCD, gBookMark, gChapter
  if gCurrentComponent = "DB" then
    set gQuitButtonPressed to 10
    set the visible of sprite 2 to 0
    set the visible of sprite 3 to 0
    set the visible of sprite 9 to 0
    set the visible of sprite 11 to 0
  else
    if (getPos(["I", "S", "T"], gCurrentComponent) = 0) or (gTeacherCD = 1) then
      set gQuitButtonPressed to -1
      set the visible of sprite 2 to 0
      set the visible of sprite 4 to 0
      set the visible of sprite 9 to 0
      set the visible of sprite 11 to 0
    else
      set gQuitButtonPressed to 1
      if (gCurrentComponent <> "I") or (gBookMark = "Test") then
        if gCurrentComponent = "S" then
          case gChapter of
            6, 9, 14, 22:
              set the visible of sprite 9 to 1
            otherwise:
              set the visible of sprite 9 to 0
          end case
        else
          if gCurrentComponent = "T" then
            set the visible of sprite 9 to 1
          else
            set the visible of sprite 9 to 0
          end if
        end if
      else
        set the visible of sprite 11 to 0
      end if
      set the visible of sprite 3 to 0
      set the visible of sprite 4 to 0
    end if
  end if
  set the visible of sprite 10 to 0
end

on setBookmark
  global gRosterList, gRosterID, gLogonCount, gStudentRow, gRosterTable, gOutText, gDataPath, gIntSkill, gCharSection, gStudentCount, QuestionNum, gGPAttempts, gCurrentComponent, gChapter, gUnitList, gBookMark
  if gLogonCount < 1 then
    exit
  end if
  set bookList to [0, 0]
  if (gCurrentComponent = "S") or (gCurrentComponent = "T") then
    set gBookMark to "Yes"
  end if
  setAt(bookList, 1, gChapter)
  setAt(bookList, 2, gBookMark)
  repeat with i = 1 to gStudentCount
    set loadLine to line i of gRosterTable
    do("set gRosterList = " & loadLine)
    if getAt(gRosterList, 3) <> EMPTY then
      case gCurrentComponent of
        "I", "G":
          setAt(gRosterList, 6, bookList)
        "S":
          setAt(gRosterList, 7, bookList)
        "T":
          setAt(gRosterList, 8, bookList)
      end case
      put string(gRosterList) into line i of gRosterTable
    end if
  end repeat
  setRoster(gRosterID)
  set gOutText to gRosterTable
  if deleteText(gDataPath) <> 0 then
    return -1
  end if
  if createText(gDataPath) <> 0 then
    return -1
  end if
  if writeText(gDataPath) <> 0 then
    return -1
  end if
  return 0
end

on setRoster passPointer
  global gFolderName, gFileName
  set pointerString to string(passPointer)
  if length(pointerString) = 1 then
    set pointerString to "0" & pointerString
  end if
  set gFolderName to "Rostr" & pointerString
  set gFileName to "Rostr"
end

on writeText dataPath
  global gOutText, gFolderName, gFileName, gDelimiter
  set writester to new(xtra("fileio"))
  openFile(writester, dataPath & gFolderName & gDelimiter & gFileName, 2)
  if status(writester) = 0 then
    setPosition(writester, 0)
    writeString(writester, gOutText)
    closeFile(writester)
    set writester to 0
    return 0
  else
    set the text of member "messageWindow" to "Unable to write"
    set writester to 0
    return -1
  end if
end

on readText dataPath
  global gInText, gFolderName, gFileName, gDelimiter
  set readster to new(xtra("fileio"))
  openFile(readster, dataPath & gFolderName & gDelimiter & gFileName, 1)
  if status(readster) = 0 then
    set gInText to readFile(readster)
    closeFile(readster)
    set readster to 0
    return 0
  else
    set the text of member "messageWindow" to "Unable to read"
    set readster to 0
    return -1
  end if
end

on deleteText dataPath
  global gFolderName, gFileName, gDelimiter
  set deletester to new(xtra("fileio"))
  openFile(deletester, dataPath & gFolderName & gDelimiter & gFileName, 0)
  if status(deletester) = 0 then
    delete(deletester)
    set deletester to 0
    return 0
  else
    set the text of member "messageWindow" to "Unable to delete"
    set deletester to 0
    return -1
  end if
end

on createText dataPath
  global gFolderName, gFileName, gDelimiter
  set createster to new(xtra("fileio"))
  createFile(createster, dataPath & gFolderName & gDelimiter & gFileName)
  if status(createster) = 0 then
    set createster to 0
    return 0
  else
    set the text of member "messageWindow" to "Unable to create file"
    set createster to 0
    return -1
  end if
end